unit helper_string1;

interface
uses
  System.SysUtils,System.Classes;
type
  TStringHelper1 = record helper for string
    function ToBase64:string;
  end;

implementation

{ TStringHelper1 }

function TStringHelper1.ToBase64: string;
begin
  Result:=Format('%S:%S',['base64',self]);
end;

end.
